2 .
3 .ELECTRONIC BLANKED
3 .BY DIETER HEINERMAN
5 NT=0
9 clear 
10 A=rnd (6)
11 for E=1to 5
12 .TRY NT=A
13 &(22)=255
15 if E=5goto 90
20 for B=-70to 70step A
25 &(17)=B;&(18)=Bmul A
30 C=rnd (6)
35 if TR(1)=1goto 9
40 for D=-40to 40step C
41 MU=BC
42 BC=B+200
43 FC=BC-53mul C
45 &(16)=Dmul C
46 &(20)=A+Cmul D
50 box B,D,A,A+C,3
60 next D
70 next B
75 next E
80 goto 10
90 print "   WANT MORE? PRESS 1"
100 if &(23)=8goto 9
110 goto 100
:return ;run 
